package Varg;

sub new {
	my($this)=[];
	my($classname)=shift;
	bless $this;
	return $this;
}

sub addverb {
	my($this) = shift;
	my($verbnum) = shift;
	my($verbposition) = shift;

	#my(@temparr);
	#my($verbinfo) = shift;
	
	#@temparr = split(/\//,$verbinfo);

	$this->[$verbnum]->{'position'} = $verbposition;
	$this->[$verbnum]->{'Nargs'} = 0;
}

sub print {
	my($Varg) = shift;
	my($m,$n);

	for($m=0;$m<=$#$Varg;$m++)
	{
		print $Varg->[$m]->{'position'}."\n";
		for($n=0;$n<=$#{$Varg->[$m]->{'args'}};$n++)
		{
			print "\t".$Varg->[$m]->{'args'}->[$n]->{'position'}."\n";
		}
	}
}

sub addarg {
	my($this) = shift;
	my($verbnum) = shift;
	my($argnum) = shift;
	my($argposition) = shift;
	my($argprep) = shift;
	
	#my(@temparr);
	#@temparr = split(/\//,$arginfo);

	$this->[$verbnum]->{'args'}->[$argnum]->{'position'} = $argposition;
	#$this->[$verbnum]->{'args'}->[$argnum]->{'word'} = $temparr[1];
	#$this->[$verbnum]->{'args'}->[$argnum]->{'wroot'} = $temparr[0];
	#$this->[$verbnum]->{'args'}->[$argnum]->{'pos'} = $temparr[2];
	$this->[$verbnum]->{'args'}->[$argnum]->{'prep'} = $argprep;
	#$this->[$verbnum]->{'args'}->[$argnum]->{'det'} = $temparr[4];

	$this->[$verbnum]->{'Nargs'} ++;
}


1;
